home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG: World of Education / PC-SiG's World of Education.iso / run / 2602 / filter.alg < prev    next >
Text File  |  1990-08-20  |  614b  |  33 lines
  1. { FILTER - Plots FFT results for data from an ASCII file }
  2. step=1;
  3. label="Finite Impulse Response Filter Coefficients";
  4. ylabel="";
  5. xlabel="";
  6. file = "firr.dat";
  7. rawdata = read &  scaley(rawdata);
  8. plot(rawdata);
  9.  
  10. { Perform FFT on raw data }
  11.  
  12. fft(rawdata);
  13. pause;        { pause when FFT done }
  14. label = "FFT Real Part";
  15. xlabel = "Frequency";
  16. ylabel = "";
  17. erase;
  18. plot(fftre(t));
  19. pause;
  20. label = "FFT Imaginary Part";
  21. erase;
  22. plot(fftim(t));
  23. pause;
  24. label = "FFT Magnitude";
  25. erase;
  26. plot(fftmag(t));
  27. pause;
  28. label = "FFT Phase";
  29. {scaley(fftphs(t));}
  30. ymin=-2; ymax=2;
  31. erase;
  32. plot(fftphs(t));
  33.